20 POKE53272,23:PRINT"[147]"TAB(13)"[207][210][197][199][207][206]-[212][210][193][201][204][146]":INPUT" [194]RAUCHST DU [197]RLAEUTERUNGEN (J/N)";C$:IFLEFT$(C$,1)="N"THENPRINT"":GOTO390
60 PRINT"[147][196]AS [208]ROGRAMM SIMULIERT EINE [198]AHRT AUF":PRINT"DEM [207]REGON-[212]RAIL VON [201]NDEPENDENCE IN":PRINT"[205]ISSOURI NACH [207]REGON-[195]ITY IN [207]REGON.":PRINT"[196]EINE 5-KOEPFIGE [198]AMILIE WIRD DEN 2040":PRINT"[205]EILEN LANGEN [207]REGON-[212]RAIL IN 5-6 [205]ON.":PRINT"ZURUECKLEGEN...  WENN SIE UEBERLEBT!"
120 PRINT"[201]HR HABT $900 FUER DIE [210]EISE GESPART UND";:PRINT"$200 FUER DEN [208]LANWAGEN BEZAHLT. [196]EN":PRINT"[210]EST DES [199]ELDES VERWENDET IHR FUER:":PRINT"[207]CHSEN[146]":PRINT"[196]AS [199]ESPANN KOSTET $200 BIS $300.":PRINT"[199]UTE [212]IERE KOSTEN DAS MEISTE."
180 PRINT"[214]ERPFLEGUNG[146]":PRINT"[202]E MEHR ZU ESSEN, DESTO KLEINER DIE":PRINT"[205]OEGLICHKEIT, KRANK ZU WERDEN.":PRINT"[205]UNITION[146]":PRINT"50 [208]ATRONEN KOSTEN $1.":PRINT"[194]EKLEIDUNG[146]":PRINT"[201]N DEN [194]ERGEN IST ES KALT.":PRINT"[211]ONSTIGES[146]":PRINT"[200]EILMITTEL, [215]ERKZEUG, ETC."
230 INPUT"[215]ENN DU FERTIG BIST, SCHREIBE 'OK'";N$:IFN$<>"OK"GOTO230
250 PRINT"[147][197]S MUSS NICHT ALLES [199]ELD AUSGEGEBEN":PRINT"WERDEN, DENN WENN ETWAS FEHLT, KANN ES":PRINT"IN EINEM [198]ORT GEKAUFT WERDEN. [196]ORT":PRINT"KOSTET ES NATUERLICH ETWAS MEHR. [204]EBENS-";:PRINT"MITTEL KANNST DU DURCH [202]AGD ERGAENZEN."
300 PRINT"[202]EDESMAL, WENN DU DEIN [199]EWEHR BENUTZT,":PRINT"MUSST DU ETWAS SCHREIBEN, DAS SICH WIE":PRINT"EIN [211]CHUSS ANHOERT. [202]E SCHNELLER DU":PRINT"DAS [215]ORT SCHREIBST UND DIE RETURN-[212]ASTE":PRINT"DRUECKST, DESTO HOEHER IST DIE [215]AHR-":PRINT"SCHEINLICHKEIT, DASS DU TRIFFST."
360 PRINT"[206]ACH JEDEM [212]EILSTUECK WIRD DER [215]ERT":PRINT"[196]EINES [194]ESITZES ANGEZEIGT, UND NUN":PRINTTAB(12)"[214]IEL [199]LUECK!"
390 PRINT"[215]IE GUT BIST DU MIT DEM [199]EWEHR?":PRINT"[199]IB EINE GANZE [218]AHL ZWISCHEN 1 UND 5 AN!";:PRINT"1[146] = [205]EISTERSCHUETZE  2[146] = GANZ GUT":PRINT"3[146] = ES GEHT          4[146] = AUS DER [213]EBUNG":PRINT"5[146] = [201]CH BIN DAUERND AM ZITTERN."
440 PRINT"[202]E BESSER DU BIST, DESTO SCHNELLER MUSSTDU SCHIESSEN     ":INPUTD9:IFD9>5THEND9=5:GOTO460
460 X1=-1:PRINT"[147]"
480 INPUT"[215]IEVIEL $ SOLLEN DIE [207]CHSEN KOSTEN";A:IFA>=200THEN520
500 PRINT"[199]EIZHALS! [196]AFUER GIBT ES KEINE [212]IERE.":GOTO480
520 IFA<=300THEN550
530 PRINT"[218]UVIEL! [211]O TEURE [212]IERE GIBT ES NICHT.":GOTO480
550 INPUT"[198]UER WIEVIEL $ [206]AHRUNGSMITTEL";F:IFF>=0THEN580
570 PRINT"[196]AS GEHT WOHL NICHT. [206]OCHMAL!":GOTO550
580 INPUT"[198]UER WIEVIEL $ [205]UNITION";B:IFB>=0THEN610
600 PRINT"[196]AS GEHT NICHT!":GOTO580
610 INPUT"[198]UER WIEVIEL $ [203]LEIDUNG";C:IFC>=0THEN640
630 PRINT"[196]AS GEHT NICHT. [206]OCHMAL!":GOTO610
640 INPUT"[215]IEVIEL $ FUER [211]ONSTIGES";M1:IFM1>=0THEN680
660 PRINT"[211]O NICHT. [206]OCHMAL!":GOTO640
680 T=700-A-F-B-C-M1:IFT>=0THEN730
700 PRINT"[147][196]U WOLLTEST MEHR AUSGEBEN, ALS DU HAST.":PRINT"[214]ERSUCHE ES NOCH EINMAL!":GOTO480
730 B=50*B:PRINT"[147][206]ACH DEN [197]INKAEUFEN BLEIBEN [196]IR NOCH":PRINT"$";T;" UEBRIG."
750 PRINT"[193]LLES KLAR? [196]ANN KANN ES JA LOSGEHEN.   SCHREIBE 'HUE'":INPUTL$:IFL$="HUE"THEN780
770 PRINT"[215]OLLEN DIE [207]CHSEN NOCH NICHT? [198]UETTERE  SIE NOCHMAL!":GOTO750
780 PRINT"[147][205]ONTAG, 29.[205]AERZ 1847":GOTO1270
800 IFM>=2040THEN4640
810 D3=D3+1:PRINT"[205]ONTAG, ";:IFD3>10THEN850
840 OND3GOTO860,880,900,920,940,960,980,1000,1020,1040
850 OND3-10GOTO1060,1080,1100,1120,1140,1160,1180,1200,1220,1240
860 PRINT"12. [193]PRIL ";:GOTO1260
880 PRINT"26. [193]PRIL ";:GOTO1260
900 PRINT"10. [205]AI ";:GOTO1260
920 PRINT"24. [205]AI ";:GOTO1260
940 PRINT"7. [202]UNI ";:GOTO1260
960 PRINT"21. [202]UNI ";:GOTO1260
980 PRINT"5. [202]ULI ";:GOTO1260
1000 PRINT"19. [202]ULI ";:GOTO1260
1020 PRINT"2. [193]UGUST ";:GOTO1260
1040 PRINT"16. [193]UGUST ";:GOTO1260
1060 PRINT"31. [193]UGUST ";:GOTO1260
1080 PRINT"13. [211]EPTEMBER ";:GOTO1260
1100 PRINT"27. [211]EPTEMBER ";:GOTO1260
1120 PRINT"11. [207]KTOBER ";:GOTO1260
1140 PRINT"25. [207]KTOBER ";:GOTO1260
1160 PRINT"6. [206]OVEMBER ";:GOTO1260
1180 PRINT"22. [206]OVEMBER ";:GOTO1260
1200 PRINT"6. [196]EZEMBER ";:GOTO1260
1220 PRINT"20. [196]EZEMBER ";:GOTO1260
1240 PRINT"[196]EINE [198]AMILIE STIRBT IM ERSTEN [211]CHNEE   STURM IM [215]INTER.":GOTO4490
1260 PRINT"1847:"
1270 IFF>=0THEN1290
1280 F=0
1290 IFB>=0THEN1310
1300 B=0
1310 IFC>=0THEN1330
1320 C=0
1330 IFM1>=0THEN1350
1340 M1=0
1350 IFF>=13THEN1370
1360 PRINT"[196]U SOLLTEST JAGEN ODER ETWAS ZUM [197]SSEN  KAUFEN...  ABER SCHNELL!!"
1370 F=INT(F):B=INT(B):C=INT(C):M1=INT(M1):T=INT(T):M=INT(M):M2=M:IFS4=1THEN1410
1390 IFK6=1THEN1410
1400 GOTO1450
1410 T=T-20:IFT<0THEN4400
1430 PRINT"[196]ER [193]RZT VERLANGT $20":LK8=0:S4=0
1450 IFM9=1THEN1470
1460 PRINT"[194]IS JETZT HABT IHR"M"[205]EILEN ":PRINT"ZURUECKGELEGT.":GOTO1490
1470 PRINT"[206]ACH 950 [205]EILEN:":M9=0
1490 PRINT"[214]ERPFLEGUNG";TAB(13);F:PRINT"[208]ATRONEN";TAB(13);B:PRINT"[194]EKLEIDUNG";TAB(13);C:PRINT"[211]ONSTIGES";TAB(13);M1:PRINT"[194]ARGELD";TAB(13);T:PRINT:IFX1=-1THEN1580
1530 X1=X1*(-1)
1540 PRINT"[215]ILLST DU 1[146] IM NAECHSTEN [198]ORT EINKAUFEN,";:PRINT"2[146] JAGEN ODER 3[146] WEITERFAHREN":INPUTX:X=INT(X):IFX>2ORX<1THENX=3
1570 GOTO1680
1580 PRINT"[215]ILLST DU 1[146] JAGEN ODER 2[146] WEITERFAHREN":INPUTX:IFX=1THEN1620
1610 X=2
1620 X=X+1:IFX=3THEN1670
1640 IFB>39THEN1670
1650 PRINT"[200]ALLO - DU BRAUCHST MEHR [208]ATRONEN ZUM   [202]AGEN.":GOTO1580
1670 X1=X1*(-1)
1680 ONXGOTO1690,1940,2100
1690 PRINT"[147][211]CHREIB, WAS DU FUER FOLGENDES AUSGEBEN WILLST:":PRINT"[214]ERPFLEGUNG  $";:GOSUB1730:GOTO1820
1730 INPUTP:IFP<0THEN1810
1750 T=T-P:IFT>=0THEN1810
1770 PRINT"[211]OVIEL HAST DU NICHT - [206]IMM WENIGER.":PRINT"[196]U VERGIBST DIE [205]OEGLICHKEIT, DAS ZU    KAUFEN!":T=T+P:P=0
1810 RETURN
1820 F=F+2/3*P:PRINT"[205]UNITION     $";:GOSUB1730:B=INT(B+2/3*P*50):PRINT"[194]EKLEIDUNG   $";:GOSUB1730:C=C+2/3*P:PRINT"[211]ONSTIGES    $";:GOSUB1730:M1=M1+2/3*P:M=M-45:GOTO2100
1940 IFB>39THEN1970
1950 PRINT"[218]UM [202]AGEN BRAUCHST DU MEHR [205]UNITION!":GOTO1540
1970 M=M-45:GOSUB5270:IFB1<=1THEN2050
2000 IF100*RND(0)<13*B1THEN2090
2010 F=F+45-2*B1:PRINT"[147][199]UT GESCHOSSEN,[160]GENAU GETROFFEN - HEUTE GIBT ES REICHLICH!":B=B-10-3*B1:GOTO2100
2050 PRINT"[147][210]EICHE [194]EUTE - DAS GIBT EIN [198]ESTESSEN.":F=F+52+RND(0)*6:B=B-10-RND(0)*4:GOTO2100
2090 PRINT"[147][196]ANEBEN - [196]EIN [205]ITTAGESSEN IST ENT-     KOMMEN..."
2100 IFF>=13THEN2120
2110 GOTO4380
2120 PRINT"[215]IEVIEL WILLST DU ESSEN:":PRINT"1[146] WENIG  2[146] NORMAL  3[146] REICHLICH"
2140 INPUTE:PRINT"[147]";:E=INT(E):IFE>3ORE<1THEN2140
2160 F=F-8-5*E:IFF>=0THEN2210
2180 F=F+8+5*E:PRINT"[211]OVIEL HABT IHR NICHT MEHR.":GOTO2120
2210 M=M+200+(A-220)/5+10*RND(0):L1=0:C1=0:IFRND(0)*10>((M/100-4)^2+72)/((M/100-4)^2+12)-1THEN2920
2250 PRINT"[210]EITER VON VORN, SEHEN ";:S5=0:IFRND(0)>.8THEN2300
2280 PRINT"NICHT GERADE ":S5=1
2300 PRINT"FREUNDLICH AUS.":PRINT"[196]EIN [214]ERHALTEN:":PRINT"1[146] FLIEHEN        2[146] ANGREIFEN":PRINT"3[146] WEITERFAHREN   4[146] [215]AGENBURG"
2340 IFRND(0)>.5THEN2360
2350 S5=1-S5
2360 INPUTT1:IFT1<1THEN2340
2380 IFT1>4THEN2340
2390 T1=INT(T1):IFS5=1THEN2710
2410 IFT1>1THEN2470
2420 M=M+20:M1=M1-15:B=B-150:A=A-40:GOTO2850
2470 IFT1>2THEN2620
2480 GOSUB5270:B=B-B1*40-80
2500 IFB1>1THEN2550
2510 PRINT"[199]UT GESCHOSSEN - SIE REITEN WEG.":FORK=1TO1000:NEXT:PRINT"[147]":GOTO2920
2540 PRINT"[204]AUSIGER [211]CHUSS - IHR WERDET ERSTOCHEN.":GOTO4440
2550 IFB1<=2THEN2600
2560 K8=1:IFRND(0)>.5THEN2540
2580 PRINT"[196]U WIRST JETZT WOHL DEN [211]ENSENMANN      KENNENLERNEN.":GOTO4440
2600 PRINT"[196]U BIST GANZ SCHOEN LANGSAM MIT DEM 45ER[195]OLT.":GOTO2890
2620 IFT1>3THEN2670
2630 IFRND(0)>.8THEN2830
2640 B=B-150:M1=M1-15:GOTO2850
2670 GOSUB5270:B=B-B1*30-50:M=M-25:GOTO2500
2710 IFT1>1THEN2750
2720 M=M+15:A=A-10:GOTO2850
2750 IFT1>2THEN2790
2760 M=M-5:B=B-100:GOTO2850
2790 IFT1>3THEN2810
2800 GOTO2850
2810 M=M-20:GOTO2850
2830 PRINT"[147][211]IE HABEN NICHT ANGEGRIFFEN.":GOTO2920
2850 IFS5=0THEN2880
2860 PRINT"[147][210]EITER WAREN FREUNDLICH, ABER SIEH NACH,OB NOCH ALLES DA IST.":GOTO2920
2880 PRINT"[147][210]EITER NETT - SIEH VORSICHTSHALBER NACH,OB ETWAS FEHLT."
2890 IFB>=0THEN2920
2900 PRINT"[203]EINE [205]UNITION MEHR - DIE [198]REMDEN TOETENEUCH.":GOTO4490
2920 D1=0:RESTORE:R1=100*RND(0)
2950 D1=D1+1:IFD1=16THEN4010
2970 READD:IFR1>DTHEN2950
2990 DATA6,11,13,15,17,22,32,35,37,42,44,54,64,69,95:IFD1>10THEN3020
3010 OND1GOTO3030,3070,3100,3150,3180,3210,3240,3310,3480,3540
3020 OND1-10GOTO3570,3640,3690,3900,3950,4010
3030 PRINT"[193]CHSBRUCH - DU VERLIERST [218]EIT UND       [215]ERKZEUG.":M=M-15-5*RND(0):M1=M1-8:GOTO4040
3070 PRINT"[197]IN [218]UGTIER VERLETZT SICH AM [194]EIN -     AB JETZT GEHT'S LANGSAMER.":M=M-25:A=A-20:GOTO4040
3100 PRINT"[208]ECH - [196]EINE [212]OCHTER HAT SICH DEN [193]RM  GEBROCHEN.":PRINT"[201]HR MUSSTET [208]AUSE MACHEN UND DEN [193]RM    SCHIENEN.":M=M-5-4*RND(0):M1=M1-2-3*RND(0):GOTO4040
3150 PRINT"[197]IN [207]CHSE LAEUFT WEG, IHR VERLIERT [218]EIT BEIM [211]UCHEN.":M=M-17:GOTO4040
3180 PRINT"[196]EIN [211]OHN VERIRRT SICH - DEN HALBEN [212]AG MUESST IHR IHN SUCHEN.":M=M-10:GOTO4040
3210 PRINT"[199]EFAEHRLICHER [198]LUSS - IHR VERLIERT [218]EIT BEIM [213]EBERSETZEN.":M=M-10*RND(0)-2:GOTO4040
3240 IFM>950THEN3830
3250 PRINT"[211]CHWERE [210]EGENFAELLE HALTEN EUCH AUF -   [218]EIT UND [214]ORRAT VERLOREN.":F=F-10:B=B-500:M1=M1-15:M=M-10*RND(0)-5:GOTO4040
3310 PRINT"[194]ANDITEN GREIFEN AN!":GOSUB5270:B=B-20*B1:IFB>=0THEN3380
3350 PRINT"[203]EINE [205]UNITION MEHR - SIE NEHMEN EINEN [212]EIL DES [199]ELDES MIT.":T=T/3:GOTO3390
3380 IFB1<=1THEN3450
3390 PRINT"[196]U WIRST INS [194]EIN GESCHOSSEN UND SIE    STEHLEN EINEN EURER [207]CHSEN.":K8=1:PRINT"[199]EH MIT DEINER [215]UNDE LIEBER ZU EINEM    [193]RZT!":M1=M1-5:A=A-20:GOTO4040
3450 PRINT"[147][196]U BIST VERDAMMT SCHNELL IM ZIEHEN!!":PRINT"[196]U HAST SIE ERWISCHT.":GOTO4040
3480 PRINT"[198]EUER IM [208]LANWAGEN - EIN [212]EIL DEINES    [194]ESITZES VERBRENNT !":F=F-40:B=B-400:M1=M1-RND(0)*8-3:M=M-15:GOTO4040
3540 PRINT"[196]ICHTER [206]EBEL - IHR VERIRRT EUCH UND    VERLIERT [218]EIT.":M=M-10-5*RND(0):GOTO4040
3570 PRINT"[196]U TOETEST EINE [199]IFTSCHLANGE - NACHDEM  SIE DICH GEBISSEN HAT.":B=B-10:M1=M1-5:IFM1>=0THEN3630
3610 PRINT"[196]A DU KEIN [211]ERUM MEHR HAST, MUSST DU    STERBEN.":GOTO4490
3630 GOTO4040
3640 PRINT"[197]IN [198]LUSS - BEIM [213]EBERSETZEN VERLIERT   IHR [197]SSEN UND [203]LEIDER.":F=F-30:C=C-20:M=M-20-20*RND(0):GOTO4040
3690 PRINT"[215]ILDE [212]IERE GREIFEN AN!":GOSUB5270:IFB>39THEN3750
3720 PRINT"[218]UWENIG [205]UNITION - DIE [215]OELFE FRESSEN   EUCH.":K8=1:GOTO4440
3750 IFB1>2THEN3780
3760 PRINT"[199]UT GESCHOSSEN, [208]ARTNER!":GOTO3790
3780 PRINT"[218]U LANGSAM - [214]ERPFLEGUNG UND [203]LEIDER    SIND VERLOREN."
3790 B=B-20*B1:C=C-B1*4:F=F-B1*8:GOTO4040
3830 PRINT"[203]ALTES [215]ETTER, DU HAST ";:IFC>22+4*RND(0)THEN3870
3850 PRINT"NICHT":C1=1
3870 PRINT"GENUG ANZUZIEHEN":IFC1=0THEN4040
3890 GOTO5390
3900 PRINT"[215]IRBELSTURM - [214]ORRAETE ZERSTOERT.":M=M-5-RND(0)*10:B=B-200:M1=M1-4-RND(0)*3:GOTO4040
3950 IFE=1THEN5390
3960 IFE=3THEN3990
3970 IFRND(0)>.25THEN5390
3980 GOTO4040
3990 IFRND(0)<.5THEN5390
4000 GOTO4040
4010 PRINT"[200]ILFREICHE [201]NDIANER ZEIGEN EUCH, WO ES  ETWAS ZUM [197]SSEN GIBT.":F=F+14:GOTO4040
4040 IFM<=950THEN800
4050 IFRND(0)*10>9-((M/100-15)^2+72)/((M/100-15)^2+12)THEN4190
4060 PRINT"[200]OHE [194]ERGE MACHEN [211]CHWIERIGKEITEN.":IFRND(0)>.1THEN4110
4080 PRINT"[201]HR VERLIERT WERTVOLLE [218]EIT BEI DER     [211]UCHE NACH EINEM [208]ASS.":M=M-60:GOTO4190
4110 IFRND(0)>.11THEN4170
4120 PRINT"[215]AGEN BESCHAEDIGT - [218]EIT UND [215]ERKZEUG   GEHEN DRAUF.":M1=M1-5:B=B-200:M=M-20-30*RND(0):GOTO4190
4170 PRINT"[201]HR WERDET LANGSAMER.":M=M-45-RND(0)/.02
4190 IFF1=1THEN4230
4200 F1=1:IFRND(0)<.8THEN4300
4220 PRINT"[201]HR SEID SICHER DURCH DEN [211]UEDPASS      GEKOMMEN - KEIN [211]CHNEE."
4230 IFM<1700THEN4270
4240 IFF2=1THEN4270
4250 F2=1:IFRND(0)<.7THEN4300
4270 IFM>950THEN800
4280 M9=1:GOTO800
4300 PRINT"[194]LIZZARD IM [194]ERGPASS - [218]EIT UND [199]ERAETE VERLOREN.":L1=1:F=F-25:M1=M1-10:B=B-300:M=M-30-40*RND(0):IFC<18+2*RND(0)THEN5390
4370 GOTO4270
4380 PRINT"[147][201]HR HABT NICHTS MEHR ZUM [197]SSEN UND      MUESST VERHUNGERN.":GOTO4490
4400 T=0:PRINT"[196]U KANNST KEINEN [193]RZT ERREICHEN.":GOTO4440
4430 PRINT"[203]EINE [205]EDIZIN MEHR VORHANDEN."
4440 PRINT"[196]U STIRBST AN ";:IFK8=1THEN4480
4460 PRINT"[204]UNGENENTZUENDUNG.":GOTO4490
4480 PRINT"DEINEN [214]ERLETZUNGEN."
4490 PRINT"[196]EINER UNGLUECKLICHEN [211]ITUATION ENTSPRE-";:PRINT"CHEND NOCH EINIGE [198]ORMALITAETEN:":INPUT"[205]OECHTEST DU EINEN [208]RIESTER";C$:INPUT"[197]IN WUERDIGES [194]EGRAEBNIS";C$:INPUT"[206]ACHRICHT AN DIE [214]ERWANDTEN";C$:IFLEFT$(C$,1)="J"THEN4570
4550 PRINT"[147][193]BER [212]ANTE [211]ADIE IN [211]T.[204]OUIS MACHT SICH [211]ORGEN UM EUCH!":GOTO4590
4570 PRINT"[147][196]AS MACHT DANN $4.50 FUER [212]ELEGRAMM-    GEBUEHREN.":PRINT"   [215]IR DANKEN FUER DIE [201]NFORMATION."
4590 PRINT"[197]S TUT UNS LEID, DASS IHR ES NICHT BIS":PRINTTAB(8)"[207]REGON GESCHAFFT HABT.":PRINTTAB(10)"[200]ERZLICHES [194]EILEID":PRINTTAB(5)"[196]IE [200]ANDELSKAMMER VON [207]REGON":END
4640 F9=(2040-M2)/(M-M2):F=F+(1-F9)*(8+5*E):PRINT"[147][197]NDLICH HABT IHR [207]REGON-[195]ITY ERREICHT,":PRINT"AM ";:F9=INT(F9*14):D3=D3*14+F9:F9=F9+1:IFF9<8THEN4720
4710 F9=F9-7
4720 ONF9GOTO4730,4750,4770,4790,4810,4830,4850
4730 PRINT"[205]ONTAG, ";:GOTO4860
4750 PRINT"[196]IENSTAG, ";:GOTO4860
4770 PRINT"[205]ITTWOCH, ";:GOTO4860
4790 PRINT"[196]ONNERSTAG, ";:GOTO4860
4810 PRINT"[198]REITAG, ";:GOTO4860
4830 PRINT"[211]AMSTAG, ";:GOTO4860
4850 PRINT"[211]ONNTAG, ";
4860 IFD3>124THEN4900
4870 D3=D3-93:PRINT"DEM ";D3;". [202]ULI 1847":GOTO5080
4900 IFD3>155THEN4940
4910 D3=D3-124:PRIN"DEM ";D3;". [193]UGUST 1847":GOTO5080
4940 IFD3>185THEN4980
4950 D3=D3-155:PRINT"DEM ";D3;".[160][211]EPTEMBER 1847":GOTO5080
4980 IFD3>216THEN5020
4990 D3=D3-185:PRINT"DEM ";D3;". [207]KTOBER 1847":GOTO5080
5020 IFD3>246THEN5060
5030 D3=D3-216:PRINT"DEM ";D3;". [206]OVEMBER 1847":GOTO5080
5060 D3=D3-246:PRINT"DEM ";D3;". [196]EZEMBER 1847"
5080 PRINT:IFB>0THEN5110
5100 B=0
5110 IFC>0THEN5130
5120 C=0
5130 IFM1>0THEN5150
5140 M1=0
5150 IFT>0THEN5170
5160 T=0
5170 IFF>0THEN5190
5180 F=0
5190 PRINT"[214]ERPFLEGUNG"TAB(13)INT(F):PRINT"[208]ATRONEN"TAB(13)INT(B):PRINT"[194]EKLEIDUNG"TAB(13)INT(C):PRINT"[211]ONSTIGES"TAB(13)INT(M1):PRINT"[194]ARGELD"TAB(13)INT(T):PRINT"[205]R. [208]RESIDENT [199]ORDON [211]MITH SENDET SEINE":PRINT"HERZLICHEN [199]LUECKWUENSCHE UND HOFFT":PRINT"FUER SIE AUF EINE ERFOLGREICHE [218]UKUNFT"
5250 PRINT"IN DER NEUEN [200]EIMAT.":END
5270 S$(1)="PENG":S$(2)="BUMM":S$(3)="KNALL":S$(4)="KRACH":S6=INT(RND(0)*4+1):PRINT"[211]CHREIBE '";S$(S6);"'!":TJ=TI:INPUTC$:B1=(TI-TJ)/(60*D9):PRINT:IFC$=S$(S6)THEN5380
5370 B1=9
5380 RETURN
5390 IF100*RND(0)<10+35*(E-1)THEN5460
5400 IF100*RND(0)<100-(40/4^(E-1))THEN5500
5410 PRINT"[197]RNSTE [203]RANKHEIT - IHR MUESST EINEN [193]RZTAUFSUCHEN!":M=M-10:M1=M1-10:S4=1:GOTO5530
5460 PRINT"[204]EICHTE [197]RKRANKUNG - IHR BRAUCHT [205]EDIZIN";:M=M-5:M1=M1-2:GOTO5530
5500 PRINT"[211]CHWERE [197]RKRANKUNG - [205]EDIZIN BENOETIGT!":M=M-5:M1=M1-5
5530 IFM1<0THEN4430
5540 IFL1=1THEN4270
5550 GOTO4040